home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a19.bas < prev    next >
BASIC Source File  |  1993-11-30  |  899b  |  26 lines
  1. 1000 'A19.BAS***************************************************T.K.MOSAKU
  2. 1010 CLS
  3. 1020 PI=3.14159!
  4. 1030 A$="☆☆☆ 少しずつ角度を変えて直線を書き重ねています｡ ☆☆☆"
  5. 1040 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
  6. 1050 T1=TIME:S=0 
  7. 1060 Q=1:C(1)=1:C(2)=1:C(3)=1:C(4)=5:GOSUB *MAIN
  8. 1070 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒  描いた直線の数--";S;"本":WAIT 150 
  9. 1080 LOCATE 5,1:PRINT SPACE$(60)
  10. 1090 T1=TIME:C(Q)=0:GOSUB *MAIN
  11. 1100 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "消すのに要した時間--";T;"秒                             ":WAIT 150 
  12. 1110 GOTO 1240
  13. 1120 '
  14. 1130 *MAIN
  15. 1140 FOR I=0 TO 1437 STEP 3
  16. 1150   U=I/180*PI
  17. 1160   R=(COS(U*2)+SIN(U*2))*40+100
  18. 1170   X1=R*COS(U/4)+210:Y1=R*SIN(U/4)+240
  19. 1180   Y2=R*COS(U/4)+230:X2=R*SIN(U/4)+460
  20. 1190   IF I=360*Q THEN Q=Q+1
  21. 1200   LINE(X1,Y1)-(X2,Y2),PSET,C(Q)
  22. 1210   S=S+1
  23. 1220 NEXT 
  24. 1230 RETURN
  25. 1240 '
  26.